home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / util / text / xes.lha / XES / REXX / Diary.xdme < prev    next >
Text File  |  1995-08-01  |  1KB  |  49 lines
  1. /* $VER: Diary.xdme 1.0 (01 Aug 1995) */
  2. /* Copyright © 1995 Fergus Duniho */
  3. /* An ARexx script for maintaining a diary with XDME */
  4.  
  5. IF ~Show("L","rexxreqtools.library") THEN
  6.     IF ~addlib("rexxreqtools.library", 0, -30) THEN EXIT
  7.  
  8. /* Change these variables to suit your own needs */
  9. path = GetEnv("Diary")
  10. name = GetEnv("MyName")
  11.  
  12. today = date(s)
  13. tagstr = "rt_reqpos=reqpos_centerscr rtfi_flags=freqf_patgad rtfi_matchpat=~(#?.xsrc)"
  14. fullname = rtfilerequest(path,today,"SELECT Diary Entry ...",,tagstr)
  15. if abbrev(fullname,path) = 0 then exit
  16. entry = delstr(fullname,1,length(path))
  17. password = rtgetstring(,,"Please Enter Password")
  18.  
  19. newwindow
  20. IF exists(fullname) THEN DO
  21.     xcom = 'execute (copy' fullname 't:temp)'
  22.     xcom
  23.     xcom = 'execute (xpack t:temp password "' || password || '")'
  24.     xcom
  25.     newfile "t:temp"
  26.     chfilename fullname
  27.     call delete("t:temp")
  28.     IF entry < today THEN DO
  29.         viewmode on
  30.     END
  31.     ELSE DO
  32.         (bottom downadd return)
  33.         C = "printf ((((((  %s  ))))))" time(c)
  34.         C
  35.         (justify center downadd downadd col 9)
  36.     END
  37. END
  38. ELSE DO
  39.     C1 = "insert (The Diary of" name "for" date(w) date(n) ")"
  40.     C2 = "printf ((((((  %s  ))))))" time(c)
  41.     C1
  42.     (justify center downadd downadd)
  43.     C2
  44.     (justify center downadd downadd col 9)
  45.     chfilename fullname
  46. END
  47. C = "settvar method IDEA settvar password" password
  48. C
  49.